Public Class Alert_Message
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents btnOK As System.Web.UI.WebControls.Button
    Protected WithEvents lblMessage As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not (Me.IsPostBack) Then

            'lblTitle.Text = Session("Alert_Title")
            lblMessage.Text = CStr(Session("Alert_Message"))

            Session.Remove("Alert_Title")
            Session.Remove("Alert_Message")

        End If

    End Sub

    Private Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click

        Dim BackPage As String = ""

        If IsNothing(Session("BackPage")) Then

            BackPage = "Index.aspx"

        Else

            If CStr(Session("BackPage")) = "" Then
                BackPage = "Index.aspx"
            Else
                BackPage = CStr(Session("BackPage"))
            End If

        End If

        Session.Remove("BackPage")

        Response.Redirect(BackPage, True)

    End Sub


End Class
